YES 0.48
↳ HASKELL
↳ BR
((min :: () -> () -> ()) :: () -> () -> ()) |
import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((min :: () -> () -> ()) :: () -> () -> ()) |
import qualified Prelude |
min x y
| x <= y
= x | otherwise
= y
min x y = min2 x y
min0 x y True = y
min1 x y True = x min1 x y False = min0 x y otherwise
min2 x y = min1 x y (x <= y)
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(min :: () -> () -> ()) |
import qualified Prelude |